home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Agfa Fonts^5.adf
/
InstallDingbats
< prev
next >
Wrap
Text File
|
1992-02-12
|
3KB
|
108 lines
;This "Installer" script will configure the users system to support
; the Dingbats character set.
; Background:
; Fountain version 37.10 sets L1 as the default symbol set. To support Dingbats
; we need to copy a new version of IF.SS that contains character maps for Dingbats.
; The new IF.SS files will contain:
; L1 - Amiga Latin 1
; GD - Gold Disk
; D1 - Series 100
; D2 - Series 200
; D3 - Series 300
; plus the TD symbol sets, minus Ventura
; if something goes wrong, reset diskfont variable
(onerror (run "setenv env:sys/diskfont SYMSET L1"))
(set SymSet
(askchoice
(prompt
"The Agfa Intellifont ITC Zapf Dingbats typeface requires a special character set."
" Please refer to the last three pages of the enclosed \"Agfa ITC Zapf Dingbats Installation\" document. "
" This will help you decide the character set you want to select.")
(help
"In order to take advantage of the rich set of characters"
" in the ITC Zapf Dingbats collection, we need to add additional"
" symbol sets. These symbol sets contain the following character maps:\n"
"\n D1 - ITC Zapf Dingbats Series-100\n"
" D2 - ITC Zapf Dingbats Series-200\n"
" D3 - ITC Zapf Dingbats Series-300\n"
"\n"
" Refer to the enclosed document for print sample of the above selection."
)
(choices "D1" "D2" "D3")
(default "D1")
)
)
;if the original IF.SS file is installed, copy new file
(set ifssSize (getsize "fonts:_bullet/if.ss"))
(if (< ifssSize 1)
(Abort " \"fonts:_bullet/if.ss\" not found."
" Please execute \"IntellifontSystemChek\""
)
)
(if (> 2000 ifssSize)
(
(run "copy fonts:_bullet/if.ss to fonts:_bullet/if.ss.org")
(copyfiles
(prompt "Copying a new symbol set maps to support"
" ITC Zapf Dingbats"
)
(help @copyfiles-help)
(source "df0:Intellifontfiles")
(dest "fonts:_bullet")
(pattern "if.ss")
(files)
(confirm)
)
)
)
; set system variable
(if (= SymSet 0)
(run "setenv env:sys/diskfont SYMSET D1")
)
(if (= SymSet 1)
(run "setenv env:sys/diskfont SYMSET D2")
)
(if (= SymSet 2)
(run "setenv env:sys/diskfont SYMSET D3")
)
(message "The installer will now execute Fountain for you.\n"
" NOTE: This installer only works with ITC Zapf Dingbats Fonts."
" You MUST only install Dingbats, then exit from Fountain,"
" and finish the Install !!! "
)
(run "sys:system/fountain")
(run "setenv env:sys/diskfont SYMSET L1")
(trap 12345 (run "setenv env:sys/diskfont SYMSET L1"))
(exit)